<%@ Language=VBScript %> <%If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" ElseIf Request("id")<>"" and not IsNumeric(Request("id")) Then ef=True ec="编号必须是数字" end if if not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsmoney = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_moneylog where id='"&Request("id")&"' and (username='"&session("agentusername")&"' or opusername='"&session("agentusername")&"' or agnusername='"&session("agentusername")&"' or agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc" dsmoney.Open Sql,conn,1,1 if dsmoney.Eof then ef=True ec="不存在的ID！" end if end if if not ef then %> <%session("FreeHostCom").FreeHost_WR("html5")%>　　具体财务信息 <%session("FreeHostCom").FreeHost_WR("html6")%>

<%if dsmoney("norusername")<>"" then%> <%if not isnull(dsmoney("norStmoney")) then'2009-6-8%> <%end if%> <%end if%> <%if dsmoney("agnusername")<>"" then%> <%end if%> <%if dsmoney("isAgnHostSer")=true then%> <%end if%> <%if dsmoney("AgnRunasUser")=true then%> <%end if%> <%if dsmoney("isfortest")=true then%> <%end if%>
编号： <%=dsmoney("id")%>
时间： <%=dsmoney("attime")%>
金额 <%if dsmoney("isadd")="y" then%> 增加 <%else%> 扣除 <%end if%><%=replace(formatCurrency(dsmoney("usermoney"),2,-1),".00","")%> 元
用户名： "><%=dsmoney("norusername")%>
用户操作前余额： <%=dsmoney("norStmoney")%> 元
用户操作后余额： <%=dsmoney("norEndmoney")%> 元
代理名： "><%=dsmoney("agnusername")%>
操作前余额： <%=dsmoney("agnStmoney")%> 元
操作后余额： <%=dsmoney("agnEndmoney")%> 元
原因： <%=dsmoney("forwhat")%>
操作区/人： <%if session("agenttype")="子代理" and dsmoney("agent1")<>session("agentusername") then%>UP<%else%><%=dsmoney("atspace")%><%end if%>　<%if session("agenttype")="子代理" and dsmoney("agent1")<>session("agentusername") then%>UP<%else%><%if dsmoney("atspace")<>"管理区" then%>agent<%else%>user<%end if%>.asp?username=<%=dsmoney("agnusername")%>"><%=dsmoney("opusername")%><%end if%><%end if%> <%if dsmoney("ishand")="y" then%>　手工<%end if%>
独立模式： 是
代理在用户区： 以成本价格消费
产品分类： <%=dsmoney("whichProduct")%>
产品类型： <%=dsmoney("pdtype")%>
相关产品编号： <%if dsmoney("pdid")>0 then%>admsql<%elseif dsmoney("whichProduct")="邮箱产品" then%>admemail<%elseif dsmoney("whichProduct")="数据库产品" then%>admsql<%elseif dsmoney("whichProduct")="域名产品" then%>listmydomain<%elseif dsmoney("whichProduct")="其他产品" then%>handother<%end if%>.asp?id=<%=dsmoney("pdid")%>"><%=dsmoney("pdid")%><%end if%>
产品开通时间： <%=dsmoney("pdsttime")%>　如果是延期/升级操作，这儿代表延期/升级前到期时间
产品到期时间： <%=dsmoney("pdendtime")%>
状态： 试用开通。

 

<%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>